home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / vs_804.zip / MAINTSRC.EXE / S_DICTHD.PRG < prev    next >
Text File  |  1991-11-25  |  3KB  |  123 lines
  1. * Filename.......: S_DICTHD.PRG
  2. *                  
  3. * Author.........: Vernon E. Six, Jr.
  4. *                  
  5. * Last Update....: Mon  11/25/91  16:37:20
  6. *                  
  7. * Created using..: VSG - Vern Six's Get System v1.00.53a
  8. *                  
  9. * Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
  10. *                  All Rights Reserved World Wide!         
  11.  
  12. #include "INKEY.CH"  
  13.  
  14.  
  15. FUNCTION S_DICTHDR(pc_Title,pc_FootNote)
  16. *══════════════════════════════════════════════════════════*
  17. * Select a DBF                                             *
  18. *══════════════════════════════════════════════════════════*
  19. LOCAL n_Top        := 5
  20. LOCAL n_Left       := 5
  21. LOCAL n_Bottom     := 20
  22. LOCAL n_Right      := 60
  23. LOCAL c_Title      := IF(pc_Title=NIL," Which Database? ",pc_Title)
  24. LOCAL c_FootNote   := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
  25. LOCAL n_Palette    := 5
  26. LOCAL a_ColObjs    := {}
  27. LOCAL n_Key        := 0 
  28. LOCAL c_OldHelp    := "" 
  29.  
  30. LOCAL c_RetVal
  31. LOCAL ab_KeyBlocks := {}
  32. LOCAL an_Keys      := {}
  33.  
  34. _DICTHDR->( VS_SetOrder("1") )
  35.  
  36.  
  37.  
  38. AADD(a_ColObjs, TBColumnNew( "Database    Description", {||L_DictHdr()}) )
  39.  
  40.  
  41. *══════════════════════════════════════════════════════════*
  42. AADD(ab_KeyBlocks, {||E_DICTHDR(.T.)} )
  43. AADD(an_Keys,      K_F10)
  44.  
  45.  
  46. *══════════════════════════════════════════════════════════*
  47. AADD(ab_KeyBlocks, {||E_DICTHDR(.F.)} )
  48. AADD(an_Keys,      K_INS)
  49.  
  50.  
  51. *══════════════════════════════════════════════════════════*
  52. AADD(ab_KeyBlocks, {||S_DICTNTX()} )
  53. AADD(an_Keys,      K_F9)
  54.  
  55.  
  56. *══════════════════════════════════════════════════════════*
  57. AADD(ab_KeyBlocks, {||S_DICTFLD()} )
  58. AADD(an_Keys,      K_F8)
  59.  
  60.  
  61. *══════════════════════════════════════════════════════════*
  62. AADD(ab_KeyBlocks, {||D_DBF()} )
  63. AADD(an_Keys,      K_DEL)
  64.  
  65.  
  66. *══════════════════════════════════════════════════════════*
  67. AADD(ab_KeyBlocks, {||GenInc()} )
  68. AADD(an_Keys,      K_F7)
  69.  
  70.  
  71. *══════════════════════════════════════════════════════════*
  72. AADD(ab_KeyBlocks, {||.T.} )
  73. AADD(an_Keys,      K_ENTER)
  74.  
  75.  
  76. *══════════════════════════════════════════════════════════*
  77. AADD(ab_KeyBlocks, {||Rpt_Dbf()} )
  78. AADD(an_Keys,      K_F6)
  79.  
  80.  
  81. *══════════════════════════════════════════════════════════*
  82. AADD(ab_KeyBlocks, {||R_FIELDS()} )
  83. AADD(an_Keys,      K_F5)
  84.  
  85.  
  86. *══════════════════════════════════════════════════════════*
  87. AADD(ab_KeyBlocks, {||C_DBF()} )
  88. AADD(an_Keys,      K_F4)
  89.  
  90. *══════════════════════════════════════════════════════════*
  91.  
  92. VS_GrabScrn()
  93.    VS_NewScrn()
  94.  
  95.    DO WHILE .T.
  96.  
  97.       c_OldHelp = VS_HelpPrg( "S_DICTHDR" )
  98.       n_Key = _DICTHDR->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
  99.               c_FootNote, n_Palette, a_ColObjs, ,, ab_KeyBlocks, an_Keys ) )
  100.       VS_HelpPrg( c_OldHelp )
  101.  
  102.       DO CASE
  103.  
  104.          CASE n_Key = K_ESC 
  105.             c_RetVal = ""   
  106.             EXIT            
  107.  
  108.          CASE n_Key = K_ENTER
  109.             c_RetVal = _DICTHDR->DBF_NAME
  110.             EXIT       
  111.  
  112.       ENDCASE
  113.  
  114.    ENDDO
  115.  
  116.  
  117. VS_PutScr()
  118.  
  119. RETURN(c_RetVal)
  120. *══ EOF: S_DICTHDR() ═════════════════════════════════════════════════════════*
  121.  
  122.  
  123.